/ MacFormat 1995 April / macformat-023.iso / Shareware City / Sound / OutOfPhase 1.03 Distribution / Demo Sounds / FMCarrier

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 53 79 6e 32 02 00 00 00 | 00 00 00 ee 56 00 00 64 |Syn2....|....V..d|
|00000010| 00 00 00 00 0e 27 07 80 | 84 1e 00 08 01 01 80 84 |.....'..|........|
|00000020| 1e 00 00 12 7a 00 01 00 | 15 00 00 00 23 73 6f 6e |....z...|....#son|
|00000030| 67 20 70 6f 73 74 70 72 | 6f 63 65 73 73 69 6e 67 |g postpr|ocessing|
|00000040| 0a 04 00 00 00 02 26 00 | 2c 00 f4 01 22 01 04 00 |......&.|,..."...|
|00000050| 00 00 46 4d 20 30 00 00 | 00 00 00 00 00 00 00 00 |..FM 0..|........|
|00000060| 00 00 00 00 40 42 0f 00 | 00 00 00 00 00 00 00 00 |....@B..|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 40 42 0f 00 40 42 0f 00 | 00 00 00 00 00 40 42 0f |@B..@B..|.....@B.|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 01 01 04 00 00 00 |........|........|
|000000a0| 46 4d 20 30 00 18 00 00 | 00 23 63 68 61 6e 6e 65 |FM 0....|.#channe|
|000000b0| 6c 20 70 6f 73 74 70 72 | 6f 63 65 73 73 69 6e 67 |l postpr|ocessing|
|000000c0| 0a 02 01 00 00 00 01 00 | 00 00 09 94 28 00 c0 00 |........|....(...|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 e8 03 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | ff ff e8 03 e8 03 00 00 |........|........|
|000000f0| e8 03 00 00 00 00 00 00 | 02 26 00 2c 00 f4 01 22 |........|.&.,..."|
|00000100| 01 06 00 00 00 46 4d 20 | 30 2e 33 00 00 00 00 00 |.....FM |0.3.....|
|00000110| 00 00 00 00 00 00 00 00 | 00 40 42 0f 00 00 00 00 |........|.@B.....|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 40 42 0f | 00 40 42 0f 00 00 00 00 |.....@B.|.@B.....|
|00000140| 00 00 40 42 0f 00 00 00 | 00 00 00 00 00 00 00 01 |..@B....|........|
|00000150| 01 06 00 00 00 46 4d 20 | 30 2e 33 00 18 00 00 00 |.....FM |0.3.....|
|00000160| 23 63 68 61 6e 6e 65 6c | 20 70 6f 73 74 70 72 6f |#channel| postpro|
|00000170| 63 65 73 73 69 6e 67 0a | 02 02 00 00 00 01 00 00 |cessing.|........|
|00000180| 00 09 96 28 00 c0 00 00 | 00 00 00 00 00 00 00 00 |...(....|........|
|00000190| 00 e8 03 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|000001a0| ff e8 03 e8 03 00 00 e8 | 03 00 00 01 00 00 00 09 |........|........|
|000001b0| 94 28 00 c0 00 00 00 00 | 00 00 00 00 00 00 00 e8 |.(......|........|
|000001c0| 03 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff e8 |........|........|
|000001d0| 03 e8 03 00 00 e8 03 00 | 00 00 00 00 00 02 26 00 |........|......&.|
|000001e0| 2c 00 f4 01 22 01 06 00 | 00 00 46 4d 20 30 2e 37 |,..."...|..FM 0.7|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 40 42 |........|......@B|
|00000200| 0f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 40 42 0f 00 40 42 |........|..@B..@B|
|00000220| 0f 00 00 00 00 00 00 40 | 42 0f 00 00 00 00 00 00 |.......@|B.......|
|00000230| 00 00 00 00 01 01 06 00 | 00 00 46 4d 20 30 2e 37 |........|..FM 0.7|
|00000240| 00 18 00 00 00 23 63 68 | 61 6e 6e 65 6c 20 70 6f |.....#ch|annel po|
|00000250| 73 74 70 72 6f 63 65 73 | 73 69 6e 67 0a 02 03 00 |stproces|sing....|
|00000260| 00 00 01 00 00 00 09 96 | 28 00 c0 00 00 00 00 00 |........|(.......|
|00000270| 00 00 00 00 00 00 e8 03 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 ff ff e8 03 | e8 03 00 00 e8 03 00 00 |........|........|
|00000290| 01 00 00 00 09 96 28 00 | c0 00 00 00 00 00 00 00 |......(.|........|
|000002a0| 00 00 00 00 e8 03 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 ff ff e8 03 e8 03 | 00 00 e8 03 00 00 01 00 |........|........|
|000002c0| 00 00 09 94 28 00 c0 00 | 00 00 00 00 00 00 00 00 |....(...|........|
|000002d0| 00 00 e8 03 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| ff ff e8 03 e8 03 00 00 | e8 03 00 00 00 00 00 00 |........|........|
|000002f0| 02 26 00 2c 00 f4 01 22 | 01 06 00 00 00 46 4d 20 |.&.,..."|.....FM |
|00000300| 31 2e 32 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |1.2.....|........|
|00000310| 00 40 42 0f 00 00 00 00 | 00 00 00 00 00 00 00 00 |.@B.....|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 40 42 0f |........|.....@B.|
|00000330| 00 40 42 0f 00 00 00 00 | 00 00 40 42 0f 00 00 00 |.@B.....|..@B....|
|00000340| 00 00 00 00 00 00 00 01 | 01 06 00 00 00 46 4d 20 |........|.....FM |
|00000350| 31 2e 32 00 18 00 00 00 | 23 63 68 61 6e 6e 65 6c |1.2.....|#channel|
|00000360| 20 70 6f 73 74 70 72 6f | 63 65 73 73 69 6e 67 0a | postpro|cessing.|
|00000370| 02 04 00 00 00 01 00 00 | 00 09 96 28 00 c0 00 00 |........|...(....|
|00000380| 00 00 00 00 00 00 00 00 | 00 e8 03 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 ff | ff e8 03 e8 03 00 00 e8 |........|........|
|000003a0| 03 00 00 01 00 00 00 09 | 96 28 00 c0 00 00 00 00 |........|.(......|
|000003b0| 00 00 00 00 00 00 00 e8 | 03 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 ff ff e8 | 03 e8 03 00 00 e8 03 00 |........|........|
|000003d0| 00 01 00 00 00 09 96 28 | 00 c0 00 00 00 00 00 00 |.......(|........|
|000003e0| 00 00 00 00 00 e8 03 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 ff ff e8 03 e8 | 03 00 00 e8 03 00 00 01 |........|........|
|00000400| 00 00 00 09 94 28 00 c0 | 00 00 00 00 00 00 00 00 |.....(..|........|
|00000410| 00 00 00 e8 03 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 ff ff e8 03 e8 03 00 | 00 e8 03 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 01 00 00 00 01 12 00 | 1f 00 63 02 56 01 0d 00 |........|..c.V...|
|00000450| 00 00 46 4d 20 53 79 6e | 74 68 20 43 6f 64 65 59 |..FM Syn|th CodeY|
|00000460| 02 00 00 23 20 74 68 69 | 73 20 66 75 6e 63 74 69 |...# thi|s functi|
|00000470| 6f 6e 20 67 65 6e 65 72 | 61 74 65 73 20 61 20 73 |on gener|ates a s|
|00000480| 69 6e 67 6c 65 20 70 65 | 72 69 6f 64 20 6f 66 20 |ingle pe|riod of |
|00000490| 61 6e 20 46 4d 2d 73 79 | 6e 74 68 65 64 20 77 61 |an FM-sy|nthed wa|
|000004a0| 76 65 0a 66 75 6e 63 20 | 66 6d 73 79 6e 74 68 28 |ve.func |fmsynth(|
|000004b0| 63 61 72 6c 76 6c 3a 64 | 6f 75 62 6c 65 2c 20 6d |carlvl:d|ouble, m|
|000004c0| 6f 64 6c 76 6c 3a 64 6f | 75 62 6c 65 2c 20 63 61 |odlvl:do|uble, ca|
|000004d0| 72 72 61 74 65 3a 64 6f | 75 62 6c 65 2c 20 6d 6f |rrate:do|uble, mo|
|000004e0| 64 72 61 74 65 3a 64 6f | 75 62 6c 65 2c 0a 09 09 |drate:do|uble,...|
|000004f0| 09 09 66 65 65 64 62 61 | 63 6b 3a 64 6f 75 62 6c |..feedba|ck:doubl|
|00000500| 65 2c 20 70 65 72 69 6f | 64 3a 69 6e 74 2c 20 76 |e, perio|d:int, v|
|00000510| 65 63 74 6f 72 3a 66 69 | 78 65 64 61 72 72 61 79 |ector:fi|xedarray|
|00000520| 2c 20 69 6e 64 65 78 3a | 69 6e 74 29 3a 66 69 78 |, index:|int):fix|
|00000530| 65 64 61 72 72 61 79 0a | 09 28 0a 09 09 76 61 72 |edarray.|.(...var|
|00000540| 20 70 72 65 76 69 6f 75 | 73 3a 64 6f 75 62 6c 65 | previou|s:double|
|00000550| 20 3d 20 30 3b 20 20 23 | 20 66 6f 72 20 64 6f 69 | = 0;  #| for doi|
|00000560| 6e 67 20 66 65 65 64 62 | 61 63 6b 0a 09 09 76 61 |ng feedb|ack...va|
|00000570| 72 20 69 3a 69 6e 74 20 | 3d 20 30 3b 0a 09 09 77 |r i:int |= 0;...w|
|00000580| 68 69 6c 65 20 69 20 3c | 20 70 65 72 69 6f 64 20 |hile i <| period |
|00000590| 2a 20 32 20 64 6f 0a 09 | 09 09 28 0a 09 09 09 09 |* 2 do..|..(.....|
|000005a0| 76 61 72 20 6d 6f 64 76 | 61 6c 3a 64 6f 75 62 6c |var modv|al:doubl|
|000005b0| 65 20 3d 20 73 69 6e 28 | 69 2a 32 2a 70 69 2a 6d |e = sin(|i*2*pi*m|
|000005c0| 6f 64 72 61 74 65 2f 70 | 65 72 69 6f 64 20 2b 20 |odrate/p|eriod + |
|000005d0| 66 65 65 64 62 61 63 6b | 2a 70 72 65 76 69 6f 75 |feedback|*previou|
|000005e0| 73 29 3b 0a 09 09 09 09 | 73 65 74 20 70 72 65 76 |s);.....|set prev|
|000005f0| 69 6f 75 73 20 3a 3d 20 | 6d 6f 64 76 61 6c 3b 0a |ious := |modval;.|
|00000600| 09 09 09 09 76 61 72 20 | 76 61 6c 3a 64 6f 75 62 |....var |val:doub|
|00000610| 6c 65 20 3d 20 63 61 72 | 6c 76 6c 20 2a 20 73 69 |le = car|lvl * si|
|00000620| 6e 28 69 2a 32 2a 70 69 | 2a 63 61 72 72 61 74 65 |n(i*2*pi|*carrate|
|00000630| 2f 70 65 72 69 6f 64 20 | 2b 20 6d 6f 64 6c 76 6c |/period |+ modlvl|
|00000640| 2a 6d 6f 64 76 61 6c 29 | 3b 0a 09 09 09 09 69 66 |*modval)|;.....if|
|00000650| 20 69 20 3e 3d 20 70 65 | 72 69 6f 64 20 74 68 65 | i >= pe|riod the|
|00000660| 6e 0a 09 09 09 09 09 73 | 65 74 20 76 65 63 74 6f |n......s|et vecto|
|00000670| 72 5b 69 6e 64 65 78 20 | 2b 20 69 20 2d 20 70 65 |r[index |+ i - pe|
|00000680| 72 69 6f 64 5d 20 3a 3d | 20 66 69 78 65 64 20 76 |riod] :=| fixed v|
|00000690| 61 6c 3b 0a 09 09 09 09 | 73 65 74 20 69 20 3a 3d |al;.....|set i :=|
|000006a0| 20 69 20 2b 20 31 3b 0a | 09 09 09 29 3b 0a 09 09 | i + 1;.|...);...|
|000006b0| 76 65 63 74 6f 72 3b 0a | 09 29 3b 0a 00 00 00 00 |vector;.|.);.....|
|000006c0| 04 00 00 00 01 17 00 2f | 00 31 02 3d 01 04 00 00 |......./|.1.=....|
|000006d0| 00 46 4d 20 30 db 01 00 | 00 23 20 66 72 61 6d 65 |.FM 0...|.# frame|
|000006e0| 73 20 3a 20 69 6e 74 65 | 67 65 72 3b 20 74 61 62 |s : inte|ger; tab|
|000006f0| 6c 65 73 20 3a 20 69 6e | 74 65 67 65 72 3b 20 64 |les : in|teger; d|
|00000700| 61 74 61 20 3a 20 66 69 | 78 65 64 61 72 72 61 79 |ata : fi|xedarray|
|00000710| 0a 70 72 6f 74 6f 20 66 | 6d 73 79 6e 74 68 28 63 |.proto f|msynth(c|
|00000720| 61 72 6c 76 6c 3a 64 6f | 75 62 6c 65 2c 20 6d 6f |arlvl:do|uble, mo|
|00000730| 64 6c 76 6c 3a 64 6f 75 | 62 6c 65 2c 20 63 61 72 |dlvl:dou|ble, car|
|00000740| 72 61 74 65 3a 64 6f 75 | 62 6c 65 2c 20 6d 6f 64 |rate:dou|ble, mod|
|00000750| 72 61 74 65 3a 64 6f 75 | 62 6c 65 2c 0a 09 09 09 |rate:dou|ble,....|
|00000760| 09 66 65 65 64 62 61 63 | 6b 3a 64 6f 75 62 6c 65 |.feedbac|k:double|
|00000770| 2c 20 70 65 72 69 6f 64 | 3a 69 6e 74 2c 20 76 65 |, period|:int, ve|
|00000780| 63 74 6f 72 3a 66 69 78 | 65 64 61 72 72 61 79 2c |ctor:fix|edarray,|
|00000790| 20 69 6e 64 65 78 3a 69 | 6e 74 29 3a 66 69 78 65 | index:i|nt):fixe|
|000007a0| 64 61 72 72 61 79 3b 0a | 73 65 74 20 64 61 74 61 |darray;.|set data|
|000007b0| 20 3a 3d 20 28 76 61 72 | 20 78 3a 66 69 78 65 64 | := (var| x:fixed|
|000007c0| 61 72 72 61 79 28 66 72 | 61 6d 65 73 20 2a 20 74 |array(fr|ames * t|
|000007d0| 61 62 6c 65 73 29 29 3b | 0a 76 61 72 20 6a 3a 69 |ables));|.var j:i|
|000007e0| 6e 74 20 3d 20 30 3b 0a | 77 68 69 6c 65 20 6a 20 |nt = 0;.|while j |
|000007f0| 3c 20 74 61 62 6c 65 73 | 20 2f 20 31 36 20 64 6f |< tables| / 16 do|
|00000800| 0a 09 28 0a 09 09 76 61 | 72 20 69 3a 69 6e 74 20 |..(...va|r i:int |
|00000810| 3d 20 30 3b 0a 09 09 77 | 68 69 6c 65 20 69 20 3c |= 0;...w|hile i <|
|00000820| 20 31 36 20 64 6f 0a 09 | 09 09 28 0a 09 09 09 09 | 16 do..|..(.....|
|00000830| 66 6d 73 79 6e 74 68 28 | 31 2c 69 2f 31 36 20 2a |fmsynth(|1,i/16 *|
|00000840| 20 31 2e 35 2c 31 2c 6a | 20 2b 20 31 2c 30 2c 66 | 1.5,1,j| + 1,0,f|
|00000850| 72 61 6d 65 73 2c 64 61 | 74 61 2c 0a 09 09 09 09 |rames,da|ta,.....|
|00000860| 09 28 69 20 2b 20 74 61 | 62 6c 65 73 20 2d 20 31 |.(i + ta|bles - 1|
|00000870| 36 2a 28 6a 2b 31 29 29 | 20 2a 20 66 72 61 6d 65 |6*(j+1))| * frame|
|00000880| 73 29 3b 0a 09 09 09 09 | 73 65 74 20 69 20 3a 3d |s);.....|set i :=|
|00000890| 20 69 20 2b 20 31 3b 0a | 09 09 09 29 3b 0a 09 09 | i + 1;.|...);...|
|000008a0| 73 65 74 20 6a 20 3a 3d | 20 6a 20 2b 20 31 3b 0a |set j :=| j + 1;.|
|000008b0| 09 29 3b 0a 80 00 00 00 | 80 00 00 00 10 01 17 00 |.);.....|........|
|000008c0| 2f 00 31 02 3d 01 06 00 | 00 00 46 4d 20 30 2e 33 |/.1.=...|..FM 0.3|
|000008d0| dd 01 00 00 23 20 66 72 | 61 6d 65 73 20 3a 20 69 |....# fr|ames : i|
|000008e0| 6e 74 65 67 65 72 3b 20 | 74 61 62 6c 65 73 20 3a |nteger; |tables :|
|000008f0| 20 69 6e 74 65 67 65 72 | 3b 20 64 61 74 61 20 3a | integer|; data :|
|00000900| 20 66 69 78 65 64 61 72 | 72 61 79 0a 70 72 6f 74 | fixedar|ray.prot|
|00000910| 6f 20 66 6d 73 79 6e 74 | 68 28 63 61 72 6c 76 6c |o fmsynt|h(carlvl|
|00000920| 3a 64 6f 75 62 6c 65 2c | 20 6d 6f 64 6c 76 6c 3a |:double,| modlvl:|
|00000930| 64 6f 75 62 6c 65 2c 20 | 63 61 72 72 61 74 65 3a |double, |carrate:|
|00000940| 64 6f 75 62 6c 65 2c 20 | 6d 6f 64 72 61 74 65 3a |double, |modrate:|
|00000950| 64 6f 75 62 6c 65 2c 0a | 09 09 09 09 66 65 65 64 |double,.|....feed|
|00000960| 62 61 63 6b 3a 64 6f 75 | 62 6c 65 2c 20 70 65 72 |back:dou|ble, per|
|00000970| 69 6f 64 3a 69 6e 74 2c | 20 76 65 63 74 6f 72 3a |iod:int,| vector:|
|00000980| 66 69 78 65 64 61 72 72 | 61 79 2c 20 69 6e 64 65 |fixedarr|ay, inde|
|00000990| 78 3a 69 6e 74 29 3a 66 | 69 78 65 64 61 72 72 61 |x:int):f|ixedarra|
|000009a0| 79 3b 0a 73 65 74 20 64 | 61 74 61 20 3a 3d 20 28 |y;.set d|ata := (|
|000009b0| 76 61 72 20 78 3a 66 69 | 78 65 64 61 72 72 61 79 |var x:fi|xedarray|
|000009c0| 28 66 72 61 6d 65 73 20 | 2a 20 74 61 62 6c 65 73 |(frames |* tables|
|000009d0| 29 29 3b 0a 76 61 72 20 | 6a 3a 69 6e 74 20 3d 20 |));.var |j:int = |
|000009e0| 30 3b 0a 77 68 69 6c 65 | 20 6a 20 3c 20 74 61 62 |0;.while| j < tab|
|000009f0| 6c 65 73 20 2f 20 31 36 | 20 64 6f 0a 09 28 0a 09 |les / 16| do..(..|
|00000a00| 09 76 61 72 20 69 3a 69 | 6e 74 20 3d 20 30 3b 0a |.var i:i|nt = 0;.|
|00000a10| 09 09 77 68 69 6c 65 20 | 69 20 3c 20 31 36 20 64 |..while |i < 16 d|
|00000a20| 6f 0a 09 09 09 28 0a 09 | 09 09 09 66 6d 73 79 6e |o....(..|...fmsyn|
|00000a30| 74 68 28 31 2c 69 2f 31 | 36 20 2a 20 31 2e 35 2c |th(1,i/1|6 * 1.5,|
|00000a40| 31 2c 6a 20 2b 20 31 2c | 30 2e 33 2c 66 72 61 6d |1,j + 1,|0.3,fram|
|00000a50| 65 73 2c 64 61 74 61 2c | 0a 09 09 09 09 09 28 69 |es,data,|......(i|
|00000a60| 20 2b 20 74 61 62 6c 65 | 73 20 2d 20 31 36 2a 28 | + table|s - 16*(|
|00000a70| 6a 2b 31 29 29 20 2a 20 | 66 72 61 6d 65 73 29 3b |j+1)) * |frames);|
|00000a80| 0a 09 09 09 09 73 65 74 | 20 69 20 3a 3d 20 69 20 |.....set| i := i |
|00000a90| 2b 20 31 3b 0a 09 09 09 | 29 3b 0a 09 09 73 65 74 |+ 1;....|);...set|
|00000aa0| 20 6a 20 3a 3d 20 6a 20 | 2b 20 31 3b 0a 09 29 3b | j := j |+ 1;..);|
|00000ab0| 0a 80 00 00 00 80 00 00 | 00 10 01 17 00 2f 00 31 |........|...../.1|
|00000ac0| 02 3d 01 06 00 00 00 46 | 4d 20 30 2e 37 dd 01 00 |.=.....F|M 0.7...|
|00000ad0| 00 23 20 66 72 61 6d 65 | 73 20 3a 20 69 6e 74 65 |.# frame|s : inte|
|00000ae0| 67 65 72 3b 20 74 61 62 | 6c 65 73 20 3a 20 69 6e |ger; tab|les : in|
|00000af0| 74 65 67 65 72 3b 20 64 | 61 74 61 20 3a 20 66 69 |teger; d|ata : fi|
|00000b00| 78 65 64 61 72 72 61 79 | 0a 70 72 6f 74 6f 20 66 |xedarray|.proto f|
|00000b10| 6d 73 79 6e 74 68 28 63 | 61 72 6c 76 6c 3a 64 6f |msynth(c|arlvl:do|
|00000b20| 75 62 6c 65 2c 20 6d 6f | 64 6c 76 6c 3a 64 6f 75 |uble, mo|dlvl:dou|
|00000b30| 62 6c 65 2c 20 63 61 72 | 72 61 74 65 3a 64 6f 75 |ble, car|rate:dou|
|00000b40| 62 6c 65 2c 20 6d 6f 64 | 72 61 74 65 3a 64 6f 75 |ble, mod|rate:dou|
|00000b50| 62 6c 65 2c 0a 09 09 09 | 09 66 65 65 64 62 61 63 |ble,....|.feedbac|
|00000b60| 6b 3a 64 6f 75 62 6c 65 | 2c 20 70 65 72 69 6f 64 |k:double|, period|
|00000b70| 3a 69 6e 74 2c 20 76 65 | 63 74 6f 72 3a 66 69 78 |:int, ve|ctor:fix|
|00000b80| 65 64 61 72 72 61 79 2c | 20 69 6e 64 65 78 3a 69 |edarray,| index:i|
|00000b90| 6e 74 29 3a 66 69 78 65 | 64 61 72 72 61 79 3b 0a |nt):fixe|darray;.|
|00000ba0| 73 65 74 20 64 61 74 61 | 20 3a 3d 20 28 76 61 72 |set data| := (var|
|00000bb0| 20 78 3a 66 69 78 65 64 | 61 72 72 61 79 28 66 72 | x:fixed|array(fr|
|00000bc0| 61 6d 65 73 20 2a 20 74 | 61 62 6c 65 73 29 29 3b |ames * t|ables));|
|00000bd0| 0a 76 61 72 20 6a 3a 69 | 6e 74 20 3d 20 30 3b 0a |.var j:i|nt = 0;.|
|00000be0| 77 68 69 6c 65 20 6a 20 | 3c 20 74 61 62 6c 65 73 |while j |< tables|
|00000bf0| 20 2f 20 31 36 20 64 6f | 0a 09 28 0a 09 09 76 61 | / 16 do|..(...va|
|00000c00| 72 20 69 3a 69 6e 74 20 | 3d 20 30 3b 0a 09 09 77 |r i:int |= 0;...w|
|00000c10| 68 69 6c 65 20 69 20 3c | 20 31 36 20 64 6f 0a 09 |hile i <| 16 do..|
|00000c20| 09 09 28 0a 09 09 09 09 | 66 6d 73 79 6e 74 68 28 |..(.....|fmsynth(|
|00000c30| 31 2c 69 2f 31 36 20 2a | 20 31 2e 35 2c 31 2c 6a |1,i/16 *| 1.5,1,j|
|00000c40| 20 2b 20 31 2c 30 2e 37 | 2c 66 72 61 6d 65 73 2c | + 1,0.7|,frames,|
|00000c50| 64 61 74 61 2c 0a 09 09 | 09 09 09 28 69 20 2b 20 |data,...|...(i + |
|00000c60| 74 61 62 6c 65 73 20 2d | 20 31 36 2a 28 6a 2b 31 |tables -| 16*(j+1|
|00000c70| 29 29 20 2a 20 66 72 61 | 6d 65 73 29 3b 0a 09 09 |)) * fra|mes);...|
|00000c80| 09 09 73 65 74 20 69 20 | 3a 3d 20 69 20 2b 20 31 |..set i |:= i + 1|
|00000c90| 3b 0a 09 09 09 29 3b 0a | 09 09 73 65 74 20 6a 20 |;....);.|..set j |
|00000ca0| 3a 3d 20 6a 20 2b 20 31 | 3b 0a 09 29 3b 0a 80 00 |:= j + 1|;..);...|
|00000cb0| 00 00 80 00 00 00 10 01 | 17 00 2f 00 31 02 3d 01 |........|../.1.=.|
|00000cc0| 06 00 00 00 46 4d 20 31 | 2e 32 dd 01 00 00 23 20 |....FM 1|.2....# |
|00000cd0| 66 72 61 6d 65 73 20 3a | 20 69 6e 74 65 67 65 72 |frames :| integer|
|00000ce0| 3b 20 74 61 62 6c 65 73 | 20 3a 20 69 6e 74 65 67 |; tables| : integ|
|00000cf0| 65 72 3b 20 64 61 74 61 | 20 3a 20 66 69 78 65 64 |er; data| : fixed|
|00000d00| 61 72 72 61 79 0a 70 72 | 6f 74 6f 20 66 6d 73 79 |array.pr|oto fmsy|
|00000d10| 6e 74 68 28 63 61 72 6c | 76 6c 3a 64 6f 75 62 6c |nth(carl|vl:doubl|
|00000d20| 65 2c 20 6d 6f 64 6c 76 | 6c 3a 64 6f 75 62 6c 65 |e, modlv|l:double|
|00000d30| 2c 20 63 61 72 72 61 74 | 65 3a 64 6f 75 62 6c 65 |, carrat|e:double|
|00000d40| 2c 20 6d 6f 64 72 61 74 | 65 3a 64 6f 75 62 6c 65 |, modrat|e:double|
|00000d50| 2c 0a 09 09 09 09 66 65 | 65 64 62 61 63 6b 3a 64 |,.....fe|edback:d|
|00000d60| 6f 75 62 6c 65 2c 20 70 | 65 72 69 6f 64 3a 69 6e |ouble, p|eriod:in|
|00000d70| 74 2c 20 76 65 63 74 6f | 72 3a 66 69 78 65 64 61 |t, vecto|r:fixeda|
|00000d80| 72 72 61 79 2c 20 69 6e | 64 65 78 3a 69 6e 74 29 |rray, in|dex:int)|
|00000d90| 3a 66 69 78 65 64 61 72 | 72 61 79 3b 0a 73 65 74 |:fixedar|ray;.set|
|00000da0| 20 64 61 74 61 20 3a 3d | 20 28 76 61 72 20 78 3a | data :=| (var x:|
|00000db0| 66 69 78 65 64 61 72 72 | 61 79 28 66 72 61 6d 65 |fixedarr|ay(frame|
|00000dc0| 73 20 2a 20 74 61 62 6c | 65 73 29 29 3b 0a 76 61 |s * tabl|es));.va|
|00000dd0| 72 20 6a 3a 69 6e 74 20 | 3d 20 30 3b 0a 77 68 69 |r j:int |= 0;.whi|
|00000de0| 6c 65 20 6a 20 3c 20 74 | 61 62 6c 65 73 20 2f 20 |le j < t|ables / |
|00000df0| 31 36 20 64 6f 0a 09 28 | 0a 09 09 76 61 72 20 69 |16 do..(|...var i|
|00000e00| 3a 69 6e 74 20 3d 20 30 | 3b 0a 09 09 77 68 69 6c |:int = 0|;...whil|
|00000e10| 65 20 69 20 3c 20 31 36 | 20 64 6f 0a 09 09 09 28 |e i < 16| do....(|
|00000e20| 0a 09 09 09 09 66 6d 73 | 79 6e 74 68 28 31 2c 69 |.....fms|ynth(1,i|
|00000e30| 2f 31 36 20 2a 20 31 2e | 35 2c 31 2c 6a 20 2b 20 |/16 * 1.|5,1,j + |
|00000e40| 31 2c 31 2e 32 2c 66 72 | 61 6d 65 73 2c 64 61 74 |1,1.2,fr|ames,dat|
|00000e50| 61 2c 0a 09 09 09 09 09 | 28 69 20 2b 20 74 61 62 |a,......|(i + tab|
|00000e60| 6c 65 73 20 2d 20 31 36 | 2a 28 6a 2b 31 29 29 20 |les - 16|*(j+1)) |
|00000e70| 2a 20 66 72 61 6d 65 73 | 29 3b 0a 09 09 09 09 73 |* frames|);.....s|
|00000e80| 65 74 20 69 20 3a 3d 20 | 69 20 2b 20 31 3b 0a 09 |et i := |i + 1;..|
|00000e90| 09 09 29 3b 0a 09 09 73 | 65 74 20 6a 20 3a 3d 20 |..);...s|et j := |
|00000ea0| 6a 20 2b 20 31 3b 0a 09 | 29 3b 0a 80 00 00 00 80 |j + 1;..|);......|
|00000eb0| 00 00 00 10 04 00 00 00 | 01 16 00 27 00 ea 01 40 |........|...'...@|
|00000ec0| 01 04 00 00 00 46 4d 20 | 30 66 01 00 00 69 6e 73 |.....FM |0f...ins|
|00000ed0| 74 72 75 6d 65 6e 74 0a | 09 28 0a 09 09 6c 6f 75 |trument.|.(...lou|
|00000ee0| 64 6e 65 73 73 20 31 3b | 0a 09 09 6f 73 63 69 6c |dness 1;|...oscil|
|00000ef0| 6c 61 74 6f 72 20 70 0a | 09 09 09 28 0a 09 09 09 |lator p.|...(....|
|00000f00| 09 74 79 70 65 20 77 61 | 76 65 74 61 62 6c 65 3b |.type wa|vetable;|
|00000f10| 0a 09 09 09 09 6c 6f 75 | 64 6e 65 73 73 20 31 3b |.....lou|dness 1;|
|00000f20| 0a 09 09 09 09 73 61 6d | 70 6c 65 6c 69 73 74 20 |.....sam|plelist |
|00000f30| 28 22 46 4d 20 30 22 20 | 31 30 30 30 30 3b 29 3b |("FM 0" |10000;);|
|00000f40| 0a 09 09 09 09 6c 6f 75 | 64 6e 65 73 73 65 6e 76 |.....lou|dnessenv|
|00000f50| 65 6c 6f 70 65 0a 09 09 | 09 09 09 28 0a 09 09 09 |elope...|...(....|
|00000f60| 09 09 09 70 6f 69 6e 74 | 73 0a 09 09 09 09 09 09 |...point|s.......|
|00000f70| 09 28 0a 09 09 09 09 09 | 09 09 09 64 65 6c 61 79 |.(......|...delay|
|00000f80| 20 30 20 6c 65 76 65 6c | 20 31 3b 0a 09 09 09 09 | 0 level| 1;.....|
|00000f90| 09 09 09 09 64 65 6c 61 | 79 20 38 20 6c 65 76 65 |....dela|y 8 leve|
|00000fa0| 6c 20 31 3b 0a 09 09 09 | 09 09 09 09 29 3b 0a 09 |l 1;....|....);..|
|00000fb0| 09 09 09 09 29 3b 0a 09 | 09 09 09 69 6e 64 65 78 |....);..|...index|
|00000fc0| 65 6e 76 65 6c 6f 70 65 | 0a 09 09 09 09 09 28 0a |envelope|......(.|
|00000fd0| 09 09 09 09 09 09 70 6f | 69 6e 74 73 0a 09 09 09 |......po|ints....|
|00000fe0| 09 09 09 09 28 0a 09 09 | 09 09 09 09 09 09 64 65 |....(...|......de|
|00000ff0| 6c 61 79 20 30 20 6c 65 | 76 65 6c 20 31 3b 0a 09 |lay 0 le|vel 1;..|
|00001000| 09 09 09 09 09 09 09 64 | 65 6c 61 79 20 38 20 6c |.......d|elay 8 l|
|00001010| 65 76 65 6c 20 30 3b 0a | 09 09 09 09 09 09 09 29 |evel 0;.|.......)|
|00001020| 3b 0a 09 09 09 09 09 29 | 3b 0a 09 09 09 29 3b 0a |;......)|;....);.|
|00001030| 09 29 0a 01 16 00 27 00 | ea 01 40 01 06 00 00 00 |.)....'.|..@.....|
|00001040| 46 4d 20 30 2e 33 68 01 | 00 00 69 6e 73 74 72 75 |FM 0.3h.|..instru|
|00001050| 6d 65 6e 74 0a 09 28 0a | 09 09 6c 6f 75 64 6e 65 |ment..(.|..loudne|
|00001060| 73 73 20 31 3b 0a 09 09 | 6f 73 63 69 6c 6c 61 74 |ss 1;...|oscillat|
|00001070| 6f 72 20 70 0a 09 09 09 | 28 0a 09 09 09 09 74 79 |or p....|(.....ty|
|00001080| 70 65 20 77 61 76 65 74 | 61 62 6c 65 3b 0a 09 09 |pe wavet|able;...|
|00001090| 09 09 6c 6f 75 64 6e 65 | 73 73 20 31 3b 0a 09 09 |..loudne|ss 1;...|
|000010a0| 09 09 73 61 6d 70 6c 65 | 6c 69 73 74 20 28 22 46 |..sample|list ("F|
|000010b0| 4d 20 30 2e 33 22 20 31 | 30 30 30 30 3b 29 3b 0a |M 0.3" 1|0000;);.|
|000010c0| 09 09 09 09 6c 6f 75 64 | 6e 65 73 73 65 6e 76 65 |....loud|nessenve|
|000010d0| 6c 6f 70 65 0a 09 09 09 | 09 09 28 0a 09 09 09 09 |lope....|..(.....|
|000010e0| 09 09 70 6f 69 6e 74 73 | 0a 09 09 09 09 09 09 09 |..points|........|
|000010f0| 28 0a 09 09 09 09 09 09 | 09 09 64 65 6c 61 79 20 |(.......|..delay |
|00001100| 30 20 6c 65 76 65 6c 20 | 31 3b 0a 09 09 09 09 09 |0 level |1;......|
|00001110| 09 09 09 64 65 6c 61 79 | 20 38 20 6c 65 76 65 6c |...delay| 8 level|
|00001120| 20 31 3b 0a 09 09 09 09 | 09 09 09 29 3b 0a 09 09 | 1;.....|...);...|
|00001130| 09 09 09 29 3b 0a 09 09 | 09 09 69 6e 64 65 78 65 |...);...|..indexe|
|00001140| 6e 76 65 6c 6f 70 65 0a | 09 09 09 09 09 28 0a 09 |nvelope.|.....(..|
|00001150| 09 09 09 09 09 70 6f 69 | 6e 74 73 0a 09 09 09 09 |.....poi|nts.....|
|00001160| 09 09 09 28 0a 09 09 09 | 09 09 09 09 09 64 65 6c |...(....|.....del|
|00001170| 61 79 20 30 20 6c 65 76 | 65 6c 20 31 3b 0a 09 09 |ay 0 lev|el 1;...|
|00001180| 09 09 09 09 09 09 64 65 | 6c 61 79 20 38 20 6c 65 |......de|lay 8 le|
|00001190| 76 65 6c 20 30 3b 0a 09 | 09 09 09 09 09 09 29 3b |vel 0;..|......);|
|000011a0| 0a 09 09 09 09 09 29 3b | 0a 09 09 09 29 3b 0a 09 |......);|....);..|
|000011b0| 29 0a 01 16 00 27 00 ea | 01 40 01 06 00 00 00 46 |)....'..|.@.....F|
|000011c0| 4d 20 30 2e 37 68 01 00 | 00 69 6e 73 74 72 75 6d |M 0.7h..|.instrum|
|000011d0| 65 6e 74 0a 09 28 0a 09 | 09 6c 6f 75 64 6e 65 73 |ent..(..|.loudnes|
|000011e0| 73 20 31 3b 0a 09 09 6f | 73 63 69 6c 6c 61 74 6f |s 1;...o|scillato|
|000011f0| 72 20 70 0a 09 09 09 28 | 0a 09 09 09 09 74 79 70 |r p....(|.....typ|
|00001200| 65 20 77 61 76 65 74 61 | 62 6c 65 3b 0a 09 09 09 |e waveta|ble;....|
|00001210| 09 6c 6f 75 64 6e 65 73 | 73 20 31 3b 0a 09 09 09 |.loudnes|s 1;....|
|00001220| 09 73 61 6d 70 6c 65 6c | 69 73 74 20 28 22 46 4d |.samplel|ist ("FM|
|00001230| 20 30 2e 37 22 20 31 30 | 30 30 30 3b 29 3b 0a 09 | 0.7" 10|000;);..|
|00001240| 09 09 09 6c 6f 75 64 6e | 65 73 73 65 6e 76 65 6c |...loudn|essenvel|
|00001250| 6f 70 65 0a 09 09 09 09 | 09 28 0a 09 09 09 09 09 |ope.....|.(......|
|00001260| 09 70 6f 69 6e 74 73 0a | 09 09 09 09 09 09 09 28 |.points.|.......(|
|00001270| 0a 09 09 09 09 09 09 09 | 09 64 65 6c 61 79 20 30 |........|.delay 0|
|00001280| 20 6c 65 76 65 6c 20 31 | 3b 0a 09 09 09 09 09 09 | level 1|;.......|
|00001290| 09 09 64 65 6c 61 79 20 | 38 20 6c 65 76 65 6c 20 |..delay |8 level |
|000012a0| 31 3b 0a 09 09 09 09 09 | 09 09 29 3b 0a 09 09 09 |1;......|..);....|
|000012b0| 09 09 29 3b 0a 09 09 09 | 09 69 6e 64 65 78 65 6e |..);....|.indexen|
|000012c0| 76 65 6c 6f 70 65 0a 09 | 09 09 09 09 28 0a 09 09 |velope..|....(...|
|000012d0| 09 09 09 09 70 6f 69 6e | 74 73 0a 09 09 09 09 09 |....poin|ts......|
|000012e0| 09 09 28 0a 09 09 09 09 | 09 09 09 09 64 65 6c 61 |..(.....|....dela|
|000012f0| 79 20 30 20 6c 65 76 65 | 6c 20 31 3b 0a 09 09 09 |y 0 leve|l 1;....|
|00001300| 09 09 09 09 09 64 65 6c | 61 79 20 38 20 6c 65 76 |.....del|ay 8 lev|
|00001310| 65 6c 20 30 3b 0a 09 09 | 09 09 09 09 09 29 3b 0a |el 0;...|.....);.|
|00001320| 09 09 09 09 09 29 3b 0a | 09 09 09 29 3b 0a 09 29 |.....);.|...);..)|
|00001330| 0a 01 16 00 27 00 ea 01 | 40 01 06 00 00 00 46 4d |....'...|@.....FM|
|00001340| 20 31 2e 32 68 01 00 00 | 69 6e 73 74 72 75 6d 65 | 1.2h...|instrume|
|00001350| 6e 74 0a 09 28 0a 09 09 | 6c 6f 75 64 6e 65 73 73 |nt..(...|loudness|
|00001360| 20 31 3b 0a 09 09 6f 73 | 63 69 6c 6c 61 74 6f 72 | 1;...os|cillator|
|00001370| 20 70 0a 09 09 09 28 0a | 09 09 09 09 74 79 70 65 | p....(.|....type|
|00001380| 20 77 61 76 65 74 61 62 | 6c 65 3b 0a 09 09 09 09 | wavetab|le;.....|
|00001390| 6c 6f 75 64 6e 65 73 73 | 20 31 3b 0a 09 09 09 09 |loudness| 1;.....|
|000013a0| 73 61 6d 70 6c 65 6c 69 | 73 74 20 28 22 46 4d 20 |sampleli|st ("FM |
|000013b0| 31 2e 32 22 20 31 30 30 | 30 30 3b 29 3b 0a 09 09 |1.2" 100|00;);...|
|000013c0| 09 09 6c 6f 75 64 6e 65 | 73 73 65 6e 76 65 6c 6f |..loudne|ssenvelo|
|000013d0| 70 65 0a 09 09 09 09 09 | 28 0a 09 09 09 09 09 09 |pe......|(.......|
|000013e0| 70 6f 69 6e 74 73 0a 09 | 09 09 09 09 09 09 28 0a |points..|......(.|
|000013f0| 09 09 09 09 09 09 09 09 | 64 65 6c 61 79 20 30 20 |........|delay 0 |
|00001400| 6c 65 76 65 6c 20 31 3b | 0a 09 09 09 09 09 09 09 |level 1;|........|
|00001410| 09 64 65 6c 61 79 20 38 | 20 6c 65 76 65 6c 20 31 |.delay 8| level 1|
|00001420| 3b 0a 09 09 09 09 09 09 | 09 29 3b 0a 09 09 09 09 |;.......|.);.....|
|00001430| 09 29 3b 0a 09 09 09 09 | 69 6e 64 65 78 65 6e 76 |.);.....|indexenv|
|00001440| 65 6c 6f 70 65 0a 09 09 | 09 09 09 28 0a 09 09 09 |elope...|...(....|
|00001450| 09 09 09 70 6f 69 6e 74 | 73 0a 09 09 09 09 09 09 |...point|s.......|
|00001460| 09 28 0a 09 09 09 09 09 | 09 09 09 64 65 6c 61 79 |.(......|...delay|
|00001470| 20 30 20 6c 65 76 65 6c | 20 31 3b 0a 09 09 09 09 | 0 level| 1;.....|
|00001480| 09 09 09 09 64 65 6c 61 | 79 20 38 20 6c 65 76 65 |....dela|y 8 leve|
|00001490| 6c 20 30 3b 0a 09 09 09 | 09 09 09 09 29 3b 0a 09 |l 0;....|....);..|
|000014a0| 09 09 09 09 29 3b 0a 09 | 09 09 29 3b 0a 09 29 0a |....);..|..);..).|
|000014b0| 00 00 00 00 00 00 00 00 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+